home *** CD-ROM | disk | FTP | other *** search
/ Clickx 22 / Clickx 22.iso / DATA / amc_install.exe / {app} / Scripts / Filmweb (PL).ifs < prev    next >
Encoding:
Text File  |  2005-05-08  |  19.8 KB  |  545 lines
  1. (***************************************************
  2.  
  3. Ant Movie Catalog importation script
  4. www.antp.be/software/moviecatalog/
  5.  
  6. [Infos]
  7. Authors=(c) 2002 Piotr Kardasz
  8. Title=Filmweb (PL)
  9. Description=Movie importation script for Filmweb info & small picture
  10. Site=http://www.filmweb.pl
  11. Language=PL
  12. Version=1.1
  13. Requires=3.5.0.1
  14. Comments=05.10.2003 Improvements made by Adma's|07.10.2003 Modifications by Adma's to import small picture|03.03.2004 Modyfications by BestiaPL support for new movie database links|20.12.2004 Modyfications by Atomek2000 support for new site design Filmweb|14.02.2005 Improvements made by Adma's|02.05.2005 Small modyfication by Mi$ta$|08.05.2005 Modyfications by Atomek2000 for correct rating, requirement AMC 3.5.0.1 for correct download pictures (bug in AMC 3.5.0.0)
  15. License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version. |
  16. GetInfo=1
  17.  
  18. [Options]
  19.  
  20. ***************************************************)
  21.  
  22. program FilmWeb;
  23. var
  24.   MovieName: string;
  25.   Link: string;
  26.  
  27. function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
  28. var
  29.   i: Integer;
  30. begin
  31.   result := -1;
  32.   if StartAt < 0 then
  33.     StartAt := 0;
  34.   for i := StartAt to List.Count-1 do
  35.     if Pos(Pattern, List.GetString(i)) <> 0 then
  36.     begin
  37.       result := i;
  38.       Break;
  39.     end;
  40. end;
  41.  
  42. procedure DelSpace(var Value: String);
  43. var
  44.   FullValue: String;
  45.   Counter: Integer;
  46. begin
  47.   if Value <> '' then
  48.   begin
  49.     FullValue := FullValue + StrGet(Value, 1);
  50.     for Counter := 2 to Length(Value) do
  51.     begin
  52.       if StrGet(Value, Counter) <> ' ' then
  53.         FullValue := FullValue + StrGet(Value, Counter)
  54.       else
  55.         if StrGet(FullValue, Length(FullValue)) <> ' ' then
  56.           FullValue := FullValue + ' ';
  57.     end;
  58.     Value := FullValue;
  59.   end
  60. end;
  61.  
  62. procedure DecodeHTML(var Value: String);
  63. var
  64.   FullValue, CharCode: String;
  65.   Counter: Integer;
  66. begin
  67.   if Value <> '' then
  68.   begin
  69.     FullValue := '';
  70.     Counter := 1;
  71.     repeat
  72.       if StrGet(Value, Counter) <> '&' then
  73.         begin
  74.           CharCode := copy(Value, Counter, 1);
  75.           case CharCode of
  76.             '▒': CharCode := '╣';
  77.             '╢': CharCode := '£';
  78.             'í': CharCode := 'Ñ';
  79.             '╝': CharCode := 'ƒ';
  80.             'ª': CharCode := 'î';
  81.             '¼': CharCode := 'Å';
  82.           end;
  83.           FullValue := FullValue + CharCode;
  84.           Counter := Counter + 1;
  85.         end
  86.       else
  87.         begin
  88.           CharCode := copy(Value, Counter, 7);
  89.           case CharCode of
  90.             'ą': FullValue := FullValue + '╣';
  91.             'ć': FullValue := FullValue + 'µ';
  92.             'ę': FullValue := FullValue + 'Ω';
  93.             'ł': FullValue := FullValue + '│';
  94.             'ń': FullValue := FullValue + '±';
  95.             'ó': FullValue := FullValue + '≤';
  96.             'ś': FullValue := FullValue + '£';
  97.             'ź': FullValue := FullValue + 'ƒ';
  98.             'ż': FullValue := FullValue + '┐';
  99.             'Ą': FullValue := FullValue + 'Ñ';
  100.             'Ć': FullValue := FullValue + '╞';
  101.             'Ę': FullValue := FullValue + '╩';
  102.             'Ł': FullValue := FullValue + 'ú';
  103.             'Ń': FullValue := FullValue + '╤';
  104.             'Ó': FullValue := FullValue + '╙';
  105.             'Ś': FullValue := FullValue + 'î';
  106.             'Ź': FullValue := FullValue + 'Å';
  107.             'Ż': FullValue := FullValue + '»';
  108.             'Š': FullValue := FullValue + ' ';
  109.             'š': FullValue := FullValue + 'í';
  110.             'Ţ': FullValue := FullValue + 'í';
  111.             'ţ': FullValue := FullValue + 'ú';
  112.             'Ť': FullValue := FullValue + 'ñ';
  113.             'ť': FullValue := FullValue + 'Ñ';
  114.             'Ŧ': FullValue := FullValue + 'î';
  115.             'ŧ': FullValue := FullValue + 'º';
  116.             'Ũ': FullValue := FullValue + '¿';
  117.             'ũ': FullValue := FullValue + '⌐';
  118.             'Ű': FullValue := FullValue + '¬';
  119.             'ű': FullValue := FullValue + '½';
  120.             'Ų': FullValue := FullValue + '¼';
  121.             'ų': FullValue := FullValue + '¡';
  122.             'Ŵ': FullValue := FullValue + '«';
  123.             'ŵ': FullValue := FullValue + '»';
  124.             'Ŷ': FullValue := FullValue + '░';
  125.             'ŷ': FullValue := FullValue + '▒';
  126.             'Ÿ': FullValue := FullValue + '▓';
  127.             'ƀ': FullValue := FullValue + '┤';
  128.             'Ɓ': FullValue := FullValue + '╡';
  129.             'Ƃ': FullValue := FullValue + '╢';
  130.             'ƃ': FullValue := FullValue + '╖';
  131.             'Ƅ': FullValue := FullValue + '╕';
  132.             'ƅ': FullValue := FullValue + '╣';
  133.             'Ɔ': FullValue := FullValue + '║';
  134.             'Ƈ': FullValue := FullValue + '╗';
  135.             'ƈ': FullValue := FullValue + '╝';
  136.             'Ɖ': FullValue := FullValue + '╜';
  137.             'Ɛ': FullValue := FullValue + '╛';
  138.             'Ƒ': FullValue := FullValue + '┐';
  139.             'ƒ': FullValue := FullValue + '└';
  140.             'Ɠ': FullValue := FullValue + '┴';
  141.             'Ɣ': FullValue := FullValue + '┬';
  142.             'ƕ': FullValue := FullValue + '├';
  143.             'Ɩ': FullValue := FullValue + '─';
  144.             'Ɨ': FullValue := FullValue + '┼';
  145.             'Ƙ': FullValue := FullValue + '╞';
  146.             'ƙ': FullValue := FullValue + '╟';
  147.             'Ȁ': FullValue := FullValue + '╚';
  148.             'ȁ': FullValue := FullValue + '╔';
  149.             'Ȃ': FullValue := FullValue + '╩';
  150.             'ȃ': FullValue := FullValue + '╦';
  151.             'Ȅ': FullValue := FullValue + '╠';
  152.             'ȅ': FullValue := FullValue + '═';
  153.             'Ȇ': FullValue := FullValue + '╬';
  154.             'ȇ': FullValue := FullValue + '╧';
  155.             'Ȉ': FullValue := FullValue + '╨';
  156.             'ȉ': FullValue := FullValue + '╤';
  157.             'Ȑ': FullValue := FullValue + '╥';
  158.             'ȑ': FullValue := FullValue + '╙';
  159.             'Ȓ': FullValue := FullValue + '╘';
  160.             'ȓ': FullValue := FullValue + '╒';
  161.             'Ȕ': FullValue := FullValue + '╓';
  162.             'ȕ': FullValue := FullValue + '╫';
  163.             'Ȗ': FullValue := FullValue + '╪';
  164.             'ȗ': FullValue := FullValue + '┘';
  165.             'Ș': FullValue := FullValue + '┌';
  166.             'ș': FullValue := FullValue + '█';
  167.             'Ƞ': FullValue := FullValue + '▄';
  168.             'ȡ': FullValue := FullValue + '▌';
  169.             'Ȣ': FullValue := FullValue + '▐';
  170.             'ȣ': FullValue := FullValue + '▀';
  171.             'Ȥ': FullValue := FullValue + 'α';
  172.             'ȥ': FullValue := FullValue + 'ß';
  173.             'Ȧ': FullValue := FullValue + 'Γ';
  174.             'ȧ': FullValue := FullValue + 'π';
  175.             'Ȩ': FullValue := FullValue + 'Σ';
  176.             'ȩ': FullValue := FullValue + 'σ';
  177.             'Ȱ': FullValue := FullValue + 'µ';
  178.             'ȱ': FullValue := FullValue + 'τ';
  179.             'Ȳ': FullValue := FullValue + 'Φ';
  180.             'ȳ': FullValue := FullValue + 'Θ';
  181.             'ȴ': FullValue := FullValue + 'Ω';
  182.             'ȵ': FullValue := FullValue + 'δ';
  183.             'ȶ': FullValue := FullValue + '∞';
  184.             'ȷ': FullValue := FullValue + 'φ';
  185.             'ȸ': FullValue := FullValue + 'ε';
  186.             'ȹ': FullValue := FullValue + '∩';
  187.             'ɀ': FullValue := FullValue + '≡';
  188.             'Ɂ': FullValue := FullValue + '±';
  189.             'ɂ': FullValue := FullValue + '≥';
  190.             'Ƀ': FullValue := FullValue + '≤';
  191.             'Ʉ': FullValue := FullValue + '⌠';
  192.             'Ʌ': FullValue := FullValue + '⌡';
  193.             'Ɇ': FullValue := FullValue + '÷';
  194.             'ɇ': FullValue := FullValue + '≈';
  195.             'Ɉ': FullValue := FullValue + '°';
  196.             'ɉ': FullValue := FullValue + '∙';
  197.             'ɐ': FullValue := FullValue + '·';
  198.             'ɑ': FullValue := FullValue + '√';
  199.             'ɒ': FullValue := FullValue + 'ⁿ';
  200.             'ɓ': FullValue := FullValue + '²';
  201.             'ɔ': FullValue := FullValue + '■';
  202.             'ɕ': FullValue := FullValue + ' ';
  203.             '&#x%DF;': FullValue := FullValue + '▀';
  204.             '4': FullValue := FullValue + '"';      
  205.           else
  206.             FullValue := FullValue + CharCode;  
  207.           end;
  208.           Counter := Counter + 7;
  209.         end;
  210.     until Counter > Length(Value);
  211.     HTMLDecode(FullValue);
  212.     Value := FullValue;
  213.   end
  214. end;
  215.  
  216. procedure AddMoviesTitles(Page: TStringList; var LineNr: Integer);
  217. var
  218.   Line: string;
  219.   MovieTitle, MovieAddress: string;
  220.   StartPos, EndPos: Integer;
  221. begin
  222.   LineNr := FindLine('<b>filmy</b>:', Page, LineNr);
  223.   if LineNr > -1 then
  224.   begin
  225.     PickTreeAdd('Znaleziono filmy:', '');
  226.     Line := Page.GetString(LineNr);
  227.     repeat
  228.       if (Pos('<a title=', Line) > 0) and (Pos('zobacz wiΩcej', Line) <= 0) then
  229.       begin
  230.         StartPos := pos('<a title=', Line) + 10;
  231.         Line := copy(Line, StartPos, Length(Line) - StartPos);
  232.         MovieTitle := copy(Line, 1, pos('href', Line) - 3);
  233.         DecodeHTML(MovieTitle);
  234.         HTMLRemoveTags(MovieTitle);
  235.         StartPos := pos('href=', Line) + 6;
  236.         Line := copy(Line, StartPos, Length(Line));
  237.           if pos('"', Line) > 0
  238.             then MovieAddress:= Copy(Line, 1, Pos('"', Line) - 1)
  239.             else MovieAddress:= Copy(Line, 1, Pos('class=', Line) - 3);
  240.         PickTreeAdd(MovieTitle, MovieAddress);
  241.       end;
  242.       LineNr := LineNr + 1;
  243.       Line := Page.GetString(LineNr);
  244.     until Pos('</table>', Line) > 0;
  245.   end
  246.   else
  247.     break;
  248. end;
  249.  
  250. procedure AnalyzePage(Address: string);
  251. var
  252.   Page: TStringList;
  253.   LineNr: Integer;
  254. begin
  255.   Page := TStringList.Create;
  256.   Page.Text := GetPage(Address);
  257.   Link:=Address;
  258.   if pos('<div class="tyt">', Page.Text) > 0 then
  259.     AnalyzeMoviePage(Page)
  260.   else if pos('href=', Page.Text) > 0 then
  261.   begin
  262.     PickTreeClear;
  263.     LineNr := 0;
  264.     AddMoviesTitles(Page, LineNr);
  265.     if PickTreeExec(Address) then
  266.       AnalyzePage(Address);
  267.   end;
  268.   Page.Free;
  269. end;
  270.  
  271. procedure AnalyzeMoviePage(Page: TStringList);
  272. var
  273.   Line, Value, FullValue: string;
  274.   LineNr, Counter: Integer;
  275.   StartPos, EndPos: Integer;
  276.   PageOpis: TStringList;
  277.   LineNrOpis: Integer;
  278.   AddressOpis: String;
  279. begin
  280.  
  281.   // Tytu│ polski
  282.   LineNr := FindLine('<div class="tyt">', Page, 0);
  283.   if LineNr > -1 then
  284.   begin
  285.     Line := Page.GetString(LineNr);
  286.     Line := Page.GetString(LineNr+1);
  287.     StartPos := 8;
  288.     Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  289.     DecodeHTML(Line);
  290.     SetField(fieldTranslatedTitle, Line);
  291.   end
  292.  
  293.   // Tytu│ oryginalny
  294.   Value:=Line;
  295.   LineNr := FindLine('<span class="styt">', Page, 0);
  296.   if LineNr > -1 then
  297.   begin
  298.     Line := Page.GetString(LineNr);
  299.     if (pos('<span class="styt">(', Line) > 0) or (pos('<span class="styt"> </span>', Line) > 0)
  300.       then Line:=Value
  301.       else begin
  302.         StartPos := pos('<span class="styt">', Line) + 19;
  303.         Line := copy(Line, StartPos, Length(Line) - StartPos);
  304.         StartPos := pos('</', Line) - 1;
  305.         Line := copy(Line, 1, StartPos);
  306.         if copy(Line, Length(Line), 1) = ' ' then Line := copy(Line, 1, Length(Line) - 1);
  307.       end;
  308.     DecodeHTML(Line);
  309.     SetField(fieldOriginalTitle, Line);
  310.   end
  311.  
  312.   // îrednia ocena  
  313.   LineNr := FindLine('</b>/10', Page, 0);
  314.   if LineNr > -1 then
  315.   begin
  316.     Line := Page.GetString(LineNr);
  317.     StartPos := pos('">', Line) + 2;
  318.     Line := copy(Line, StartPos, Length(Line) - StartPos);
  319.     StartPos := pos('</b>', Line);
  320.     Line := copy(Line, 1, StartPos - 1);
  321.     Line:=IntToStr(Round(StrToInt(copy(Line, 1, Length(Line)-3),0)*10+StrToInt(copy(Line, 3, 2), 0) / 10)); //zaokr╣glenie oceny do dziesiΩtnej
  322.     Value:=copy(Line, 1, Length(Line)-1)+','+copy(Line, Length(Line), 1);
  323.     SetField(fieldRating, Value);
  324.   end
  325.  
  326.   // Kategoria
  327.   LineNr := FindLine('genre.id', Page, 0);
  328.   if LineNr > -1 then
  329.   begin
  330.     Line := Page.GetString(LineNr);
  331.     Value := '';
  332.     while Pos('genre.id=', Line) > 0 do
  333.     begin
  334.       StartPos := pos('">', Line) + 2;
  335.       Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  336.       StartPos := pos('</', Line);
  337.       Value:= Value + copy(Line,1, StartPos - 1) + ' / ';
  338.     end;
  339.     Value := copy(Value, 1, Length(Value) - 3);
  340.     DecodeHTML(Value);
  341.     SetField(fieldCategory, Value);
  342.   end
  343.     
  344.   // Kraj
  345.   LineNr := FindLine('country.id', Page, 0);
  346.   if LineNr > -1 then
  347.   begin
  348.     Line := Page.GetString(LineNr);
  349.     Value := '';
  350.     while Pos('country.id=', Line) > 0 do
  351.     begin
  352.       StartPos := pos('">', Line) + 2;
  353.       Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  354.       StartPos := pos('</', Line);
  355.       Value:= Value + copy(Line,1, StartPos - 1) + ' , ';
  356.     end;
  357.     Value := copy(Value, 1, Length(Value) - 3);
  358.     DecodeHTML(Value);
  359.     SetField(fieldCountry, Value);
  360.   end
  361.  
  362.   // Rok produkcji
  363.   LineNr := FindLine('<span class="styt">(', Page, 0);
  364.   if LineNr > -1 then
  365.   begin
  366.     Line := Page.GetString(LineNr);
  367.     StartPos := pos(')</span>', Line);
  368.     Value := copy(Line, StartPos-4, 4);
  369.     SetField(fieldYear, Value);
  370.   end
  371.  
  372.   // Re┐yseria
  373.   LineNr := FindLine('re┐yseria', Page, 0);
  374.   if LineNr > -1 then
  375.   begin
  376.     Line := Page.GetString(LineNr);
  377.     StartPos:= Pos('re┐yseria', Line) + 9;
  378.     Line:= Copy(Line, StartPos, Length(Line));
  379.     Value:='';
  380.     repeat
  381.       StartPos:= Pos('">', Line) + 2;
  382.       Line:= Copy(Line, StartPos, Length(Line) - StartPos);
  383.       Value:= Value + Copy(Line, 1, Pos('</a>', Line) - 1) + ', ';
  384.     until Pos('">', Line) <= 0;
  385.     Value:= Copy(Value, 1, Length(Value) - 2);
  386.     DecodeHTML(Value);
  387.     SetField(fieldDirector, Value);
  388.   end
  389.  
  390.   // Producent
  391. //  LineNr := FindLine('>producent:</td>', Page, 0);
  392. //  if LineNr > -1 then
  393. //  begin
  394. //    Line := Page.GetString(LineNr);
  395. //    StartPos := pos('>producent:</td>', Line) + 16;
  396. //    Line := copy(Line, StartPos, Length(Line) - StartPos); 
  397. //    Value := copy(Line, 1, pos('</a></td></tr>', Line) - 1);
  398. //    HTMLRemoveTags(Value);
  399. //    DecodeHTML(Value); 
  400. //    SetField(fieldProducer, Value);
  401. //  end  
  402.  
  403.   // Czas trwania
  404.   LineNr := FindLine('czas trwania:', Page, 0);
  405.   if LineNr > -1 then
  406.   begin
  407.     Line := Page.GetString(LineNr);
  408.     StartPos := pos('czas trwania:', Line) + 14;
  409.     Line := copy(Line, StartPos, Length(Line) - StartPos + 1);
  410.     SetField(fieldLength, Line);
  411.   end
  412.   
  413.   // Opis filmu
  414.   LineNr := FindLine('alt="o filmie"', Page, 0);
  415.   if LineNr > -1 then
  416.   begin
  417.     if FindLine('... <a class="n" href="', Page, LineNr) > 0 then
  418.     begin
  419.       LineNr := FindLine('... <a class="n" href="', Page, LineNr);
  420.       Line := Page.GetString(LineNr);
  421.       StartPos := pos('... <a class="n" href="', Line) + 23;
  422.       Line := copy(Line, StartPos, Length(Line) - StartPos);
  423.       StartPos := pos('">', Line);
  424.       Line := copy(Line, 1, StartPos - 1);
  425.       AddressOpis := Line;
  426.       SetField(fieldComments, 'Dodatkowe opisy filmu na stronie: ' + AddressOpis);
  427.       PageOpis := TStringList.Create;
  428.       PageOpis.Text := GetPage(AddressOpis);
  429.       LineNrOpis := FindLine('<li>', PageOpis, 0);
  430.       if LineNrOpis > -1 then
  431.       begin
  432.         LineNrOpis:= LineNrOpis + 1;
  433.         Line := PageOpis.GetString(LineNrOpis);
  434.         While FindLine('<li>', PageOpis, LineNrOpis) >0 do
  435.         begin
  436.           LineNrOpis := FindLine('<li>', PageOpis, LineNrOpis);
  437.           LineNrOpis:= LineNrOpis + 1;
  438.         end;
  439.         LineNrOpis:=LineNrOpis-1;
  440.         Line:='';
  441.         EndPos:=FindLine('</li>', PageOpis, LineNrOpis);
  442.         For StartPos:=LineNrOpis to EndPos do Line := Line + PageOpis.GetString(StartPos) + ' ';
  443.         StartPos := pos('<li>', Line);
  444.         Line := copy(Line, StartPos, Length(Line) - StartPos);
  445.         HTMLRemoveTags(Line);
  446.         while copy(Line,1,1) = ' ' do Line:=copy(Line,2,Length(Line) - 1);
  447.         if copy(Line, Length(Line), 1) = ' ' then Line := copy(Line, 1, Length(Line) - 1);
  448.       end;
  449.       PageOpis.Free;
  450.     end
  451.     else
  452.     begin
  453.       Line := Page.GetString(LineNr+1);
  454.       Line:=StringReplace(Line, #9, ' ');
  455.       HTMLRemoveTags(Line);
  456.       while copy(Line,1,1) = ' ' do Line:=copy(Line,2,Length(Line) - 1);
  457.     end;
  458.     DecodeHTML(Line);
  459.     Line:=StringReplace(Line, chr(34),chr(39)); // zamiana cudzyslowu na apostrof
  460.     DelSpace(Line);
  461.     SetField(fieldDescription, Line);
  462.   end
  463.   
  464.   // Obsada
  465.   LineNr := FindLine('alt="obsada"', Page, 0);
  466.   if LineNr > -1 then
  467.   begin
  468.     LineNr:= LineNr + 1;
  469.     Line := Page.GetString(LineNr);
  470.     While Pos('title="', Line) <= 0 do
  471.     begin
  472.       LineNr:= LineNr + 1;
  473.       Line := Page.GetString(LineNr);
  474.     end;
  475.     Value := '';
  476.     repeat
  477.       if Pos('title=', Line) > 0 then
  478.       begin
  479.         Line:= Copy(Line, Pos('title=', Line) + 7, Length(Line));
  480.         StartPos:= Pos('">', Line) + 2;
  481.         Line:= Copy(Line, StartPos, Length(Line));
  482.         Value:= Value + Copy(Line, 1, Pos('</a', Line) - 1) + ', ';
  483.       end;
  484.       LineNr:= LineNr + 1;
  485.       Line := Page.GetString(LineNr);
  486.     until Pos('</table>', Line) > 0; //align="right"><a class="n"
  487.     Value := copy(Value, 1, Length(Value) - 2);
  488.     DecodeHTML(Value); 
  489.     SetField(fieldActors, Value);
  490.   end
  491.   
  492.   //URL
  493.   setField(fieldURL, Link);
  494.   
  495.  //Foto
  496.   Value:= '';
  497.   LineNr:= FindLine('<img  src="http://gfx.filmweb.pl', Page, 0);
  498.   if LineNr > -1
  499.   then begin
  500.     Line:= Page.GetString(LineNr);
  501.     StartPos:= Pos('src=', Line) + 5;
  502.     Line:= Copy(Line, StartPos, Length(Line));
  503.     Line:= Copy(Line, 1, Pos('alt=', Line) - 3);
  504.     HTMLRemoveTags(Line);
  505.     DecodeHTML(Line);
  506.     DelSpace(Line);
  507.     GetPicture(Line);
  508.   end;
  509. end;
  510.  
  511. begin
  512.   if CheckVersion(3,5,0) then
  513.   begin
  514.     MovieName := GetField(fieldOriginalTitle);
  515.     if MovieName = '' then
  516.       MovieName := GetField(fieldTranslatedTitle);
  517.     if Input('FilmWeb Import', 'Podaj tytu│ filmu:', MovieName) then
  518.     begin
  519.       MovieName:=StringReplace(MovieName, '╣', chr(177));  // Zamiana na ISO-8859-2
  520.       MovieName:=StringReplace(MovieName, 'µ', chr(230));
  521.       MovieName:=StringReplace(MovieName, 'Ω', chr(234));
  522.       MovieName:=StringReplace(MovieName, '│', chr(179));
  523.       MovieName:=StringReplace(MovieName, '±', chr(241));
  524.       MovieName:=StringReplace(MovieName, '≤', chr(243));
  525.       MovieName:=StringReplace(MovieName, '£', chr(182));
  526.       MovieName:=StringReplace(MovieName, 'ƒ', chr(188));
  527.       MovieName:=StringReplace(MovieName, '┐', chr(191));
  528.       MovieName:=StringReplace(MovieName, 'Ñ', chr(161));
  529.       MovieName:=StringReplace(MovieName, '╞', chr(198));
  530.       MovieName:=StringReplace(MovieName, '╩', chr(202));
  531.       MovieName:=StringReplace(MovieName, 'ú', chr(163));
  532.       MovieName:=StringReplace(MovieName, '╤', chr(209));
  533.       MovieName:=StringReplace(MovieName, '╙', chr(211));
  534.       MovieName:=StringReplace(MovieName, 'î', chr(166));
  535.       MovieName:=StringReplace(MovieName, 'Å', chr(172));
  536.       MovieName:=StringReplace(MovieName, '»', chr(175));
  537.       MovieName:=StringReplace(MovieName, ' ', '+');
  538.       AnalyzePage('http://filmweb.pl/Find?query=' + MovieName + '&category=1');
  539.     end;
  540.   end else
  541.     ShowMessage('Skrypt wymaga programu Ant Movie Catalog w wersji 3.5.0.1 lub nowszej');
  542. end.
  543.  
  544.  
  545.